home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / wild / support / wabl / editwablalien / guimake.c < prev    next >
C/C++ Source or Header  |  1999-05-25  |  899b  |  40 lines
  1. /*
  2. **    EditWABL gui init/kill.
  3. */
  4.  
  5. #include <wabl.h>
  6. #include <exec/exec.h>
  7. #include <exec/libraries.h>
  8. #include <dos/dos.h>
  9. #include <utility/tagitem.h>
  10. #include <utility/hooks.h>
  11. #include <inline/dos.h>
  12. #include <inline/intuition.h>
  13. #include <intuition/intuition.h>
  14.  
  15. extern struct ExecBase *SysBase;
  16. extern struct Library *DOSBase;
  17. extern struct Library *IntuitionBase;
  18. extern ULONG *wi_view;
  19.  
  20. ULONG InitGui()
  21.  {
  22.   static const struct TagItem tags[]={    {WA_Left,20},{WA_Top,20},
  23.                       {WA_Width,500},{WA_Height,300},
  24.                       {WA_CloseGadget,TRUE},{WA_SizeGadget,TRUE},
  25.                       {WA_DragBar,TRUE},{WA_DepthGadget,TRUE},
  26.                       {WA_Activate,TRUE},{WA_GimmeZeroZero,TRUE},
  27.                       {WA_PubScreen,0},{0,0}};
  28.   if (wi_view=OpenWindowTagList(NULL,tags))
  29.    {
  30.     return(TRUE);
  31.    } // VIEWWINDOW
  32.   return(FALSE); 
  33.  }       
  34.  
  35. void KillGui()
  36.  {
  37.   if (wi_view)
  38.    {CloseWindow(wi_view);
  39.     wi_view=NULL;}    
  40.  }